home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win98 Start Menu 4.xpl < prev    next >
Text File  |  2002-01-23  |  4KB  |  145 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Start menu\Windows 98"
  5. "NAME"="Programs Scroll Mode"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="001"
  9. "TEXT 1"="Show in scrolling mode (default)"
  10. "TEXT 2"="Show using multiple columns (Type 1)"
  11. "TEXT 3"="Show using multiple columns (Type 2)"
  12. "DESCRIPTION 1"="In Windows 95/NT, if the Start Menu was too big to fit vertically on the screen, multiple columns were used. In Windows 98, the Start Menu become scrolling. "
  13. "DESCRIPTION 2"="Please note: There are several releases of Windows 98 available, that might not work directly. Therefore, this plug-in offer two types to activate the multiple columns view. If Type 1 does not work for you, please try Type 2."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="'Multiple Columns' setting from Tom Simpson [thomas@mail.xenafan.com] - thanks a lot!"
  18.  
  19.  
  20. sV2_W98a="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms" 
  21. sV2_W98b="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\StartMenuScrollPrograms" 
  22.  
  23. SUB Plugin_Initialize
  24.  'this setting is driving me mad!
  25.  'everbody says this must be "false" to be NOT enabled on W98, but this isn't true! 
  26.  'RegOption = FALSE, OUR SETTING = TRUE  --> DOES NOT SCROLL
  27.  
  28.  s1=RegReadValue(sV2_W98a) 
  29.  s2=RegReadValue(sV2_W98b) 
  30.  if lcase(s1)="yes" or lcase(s2)="yes" then
  31.     SetUIElement 1,true
  32.  elseif IsEmpty(s1)=true and IsEmpty(s2) then
  33.         SetUIElement 1,true
  34.  end if
  35.  
  36.  'check for Type 1 "NO"
  37.  if lcase(s1)="no" AND lcase(s2)="no" then
  38.     SetUIElement 2,true
  39.  end if
  40.  
  41.  'check for Type 2 "FALSE"
  42.  if lcase(s1)="false" AND lcase(s2)="false" then
  43.     SetUIElement 2,true
  44.  end if
  45.  
  46.  
  47. END SUB
  48.  
  49. SUB Plugin_CheckData(ElementIndex)
  50. END SUB
  51.  
  52. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  53.  if GetUIElement(1)=true then
  54.     if RegValueExists(sV2_W98a) then Call RegDeleteValue(sV2_W98a)
  55.     if RegValueExists(sV2_W98b) then Call RegDeleteValue(sV2_W98b)
  56.  end if
  57.  
  58.  if GetUIElement(2)=true then
  59.     Call RegWriteValue(sV2_W98a,"NO",1)
  60.     Call RegWriteValue(sV2_W98b,"NO",1)
  61.  end if
  62.  
  63.  if GetUIElement(3)=true then
  64.     Call RegWriteValue(sV2_W98a,"FALSE",1)
  65.     Call RegWriteValue(sV2_W98b,"FALSE",1)
  66.  end if
  67.  
  68.  
  69.  Call Restart()
  70. END SUB
  71.  
  72. SUB Plugin_Terminate
  73. END SUB
  74.  
  75.  
  76.  
  77.  
  78.  
  79. Sub ReadIt(ITM,PATH1)
  80.  if RegValueExists(PATH1)=false then 'setting available?
  81.     'no setting -> item visible
  82.     Call SetUIElementEx(ITM,true)
  83.  else
  84.     i=RegReadValue(PATH1)
  85.     if i=0 then 
  86.        Call SetUIElementEx(ITM,true)
  87.     end if
  88.  end if
  89. End Sub
  90.  
  91. Sub ReadIt_2(ITM,PATH1)
  92.  if RegValueExists(PATH1)=false then 'setting available?
  93.     'no setting -> item not visible
  94.     Call SetUIElementEx(ITM,false)
  95.  else
  96.     i=RegReadValue(PATH1)
  97.     if i=1 then 
  98.        Call SetUIElementEx(ITM,true)  
  99.     end if
  100.  end if
  101. End Sub
  102.  
  103. Sub ReadIt_3(ITM,PATH1)
  104.  if RegValueExists(PATH1)=false then 'setting available?
  105.     'no setting -> item is active
  106.     Call SetUIElementEx(ITM,true)
  107.  else
  108.     s=RegReadValue(PATH1)
  109.     if LCase(s)="yes" then 
  110.        Call SetUIElementEx(ITM,true)  
  111.     end if
  112.  end if
  113. End Sub
  114.  
  115. Sub WriteIt(ITM,PATH1)
  116.  b=GetUIElementEx(ITM)
  117.  if b=true then
  118.  
  119.     s=RegReadValue(PATH1)
  120.     if IsEmpty(s)=false then
  121.        Call RegDeleteValue(PATH1)
  122.     end if
  123.  
  124.  else
  125.     Call RegWriteValue(PATH1,1,2)
  126.  end if
  127. End Sub
  128.  
  129. Sub WriteIt_2(ITM,PATH1)
  130.  b=GetUIElementEx(ITM)
  131.  if b=true then
  132.     Call RegWriteValue(PATH1,1,2)
  133.  else
  134.     Call RegWriteValue(PATH1,0,2)
  135.  end if
  136. end Sub
  137.  
  138. Sub WriteIt_3(ITM,PATH1)
  139.  b=GetUIElementEx(ITM)
  140.  if b=true then
  141.     Call RegWriteValue(PATH1,"YES",1)
  142.  else
  143.     Call RegWriteValue(PATH1,"NO",1)
  144.  end if
  145. End Sub